home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / dpp / token.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  4KB  |  164 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "token.d"
  17. #include "dpp.h" 
  18.  
  19. #define    CLASS    Token_c
  20. #define    ivType    Token_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    Token_c;
  25.  
  26.  
  27. #line 28 "token.c"
  28. typedef struct  _Token_iv_t  {
  29.     object iToken;
  30.     long iLine;
  31.     int iSpace;
  32. }    Token_iv_t;
  33.  
  34.  
  35.  
  36. #line 25 "token.d"
  37. cmeth objrtn Token_cm_gNew(object self)
  38. { 
  39.     return gShouldNotImplement(self, "gNew"); 
  40. } 
  41.  
  42. cmeth objrtn Token_cm_gNewToken(object self, char *tkn, long ln, int sp)
  43. { 
  44.     object obj; 
  45.     ivType *iv; 
  46.  
  47.     obj = oSuper(Token_c, gNew, self)(self); 
  48.     iv = ivPtr(obj); 
  49.     iv->iToken = gNewWithStr(String, tkn); 
  50.     iv->iLine = ln; 
  51.     iv->iSpace = sp; 
  52.     return obj; 
  53. } 
  54.  
  55. imeth objrtn Token_im_gDispose(object self)
  56. { Token_iv_t *iv = GetIVs(Token, self);
  57.     gDispose(iv->iToken); 
  58.     return oSuper(Token_c, gDispose, self)(self); 
  59. } 
  60.  
  61. imeth char * Token_im_gStringValue(object self)
  62. { Token_iv_t *iv = GetIVs(Token, self);
  63.     return gStringValue(iv->iToken); 
  64. } 
  65.  
  66. imeth objrtn Token_im_gToken(object self)
  67. { Token_iv_t *iv = GetIVs(Token, self);
  68.     return iv->iToken; 
  69. } 
  70.  
  71. imeth objrtn Token_im_gChangeToken(object self, char *str)
  72. { Token_iv_t *iv = GetIVs(Token, self);
  73.     gChangeStrValue(iv->iToken, str); 
  74.     return self; 
  75. } 
  76.  
  77. imeth long Token_im_gLineNumber(object self)
  78. { Token_iv_t *iv = GetIVs(Token, self);
  79.     return iv->iLine; 
  80. } 
  81.  
  82. imeth int Token_im_gSpace(object self)
  83. { Token_iv_t *iv = GetIVs(Token, self);
  84.     return iv->iSpace; 
  85. } 
  86.  
  87. imeth objrtn Token_im_gCopy(object self)
  88. { Token_iv_t *iv = GetIVs(Token, self);
  89.     object obj = oSuper(Token_c, gCopy, self)(self); 
  90.     ivType *niv = ivPtr(obj); 
  91.     niv->iToken = gCopy(iv->iToken); 
  92.     return obj; 
  93. } 
  94.  
  95. imeth objrtn Token_im_gStringRepValue(object self)
  96. { Token_iv_t *iv = GetIVs(Token, self);
  97.     return gStringRepValue(iv->iToken); 
  98. } 
  99.  
  100. imeth objrtn Token_im_gStringRep(object self)
  101. { Token_iv_t *iv = GetIVs(Token, self);
  102.     object a, b, s; 
  103.  
  104.     a = oSuper(Token_c, gStringRepValue, self)(self); 
  105.     b = gStringRepValue(iv->iToken); 
  106.     s = vBuild(String, gName(ClassOf(self)), " (", a, ", ", b, ")\n", NULL); 
  107.     DISPOSE(a); 
  108.     DISPOSE(b); 
  109.     return s; 
  110. } 
  111.  
  112.  
  113. #line 114 "token.c"
  114.  
  115. objrtn    Token_initialize(void)
  116. {
  117.     static  CRITICALSECTION  cs;
  118.     static  int volatile once = 0;
  119.  
  120.     ENTERCRITICALSECTION(_CI_CS_);
  121.     if (!once) {
  122.         INITIALIZECRITICALSECTION(cs);
  123.         once = 1;
  124.     }
  125.     LEAVECRITICALSECTION(_CI_CS_);
  126.  
  127.     ENTERCRITICALSECTION(cs);
  128.  
  129.     if (Token_c) {
  130.         LEAVECRITICALSECTION(cs);
  131.         return Token_c;
  132.     }
  133.     INHIBIT_THREADER;
  134.     Link_initialize();
  135.     if (Token_c)  {
  136.         ENABLE_THREADER;
  137.         LEAVECRITICALSECTION(cs);
  138.         return Token_c;
  139.     }
  140.     Token_c = gNewClass(Class, "Token", sizeof(Token_iv_t), 0, Link, END);
  141.     cMethodFor(Token, gNew, Token_cm_gNew);
  142.     cMethodFor(Token, gNewToken, Token_cm_gNewToken);
  143.     iMethodFor(Token, gToken, Token_im_gToken);
  144.     iMethodFor(Token, gSpace, Token_im_gSpace);
  145.     iMethodFor(Token, gLineNumber, Token_im_gLineNumber);
  146.     iMethodFor(Token, gDispose, Token_im_gDispose);
  147.     iMethodFor(Token, gChangeToken, Token_im_gChangeToken);
  148.     iMethodFor(Token, gStringRepValue, Token_im_gStringRepValue);
  149.     iMethodFor(Token, gCopy, Token_im_gCopy);
  150.     iMethodFor(Token, gDeepDispose, Token_im_gDispose);
  151.     iMethodFor(Token, gStringRep, Token_im_gStringRep);
  152.     iMethodFor(Token, gDeepCopy, Token_im_gCopy);
  153.     iMethodFor(Token, gStringValue, Token_im_gStringValue);
  154.  
  155.     ENABLE_THREADER;
  156.  
  157.     LEAVECRITICALSECTION(cs);
  158.  
  159.     return Token_c;
  160. }
  161.  
  162.  
  163.  
  164.